home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / ObiWan 4.0.1 / Additions / Pascal < prev    next >
Encoding:
Text File  |  1993-01-20  |  5.6 KB  |  146 lines  |  [TEXT/MPS ]
  1. =|
  2. Pascal Predefined Routines [1/2]
  3. Bits -> BitAnd BitNot BitOr BitXor BAND BOR BXOR BNOT BSL BSR
  4.     BROTL RROTR BTST BCLR BSET HiWrd LoWrd
  5. Compiler Directives -> Compiler
  6. Hacks -> Ord4 Pointer SizeOf
  7. Memory -> Dispose FillChar HeapCheck HeapResult Mark MemAvail
  8.     MoveLeft MoveRight New PLHeapInit PLSetHeapCheck
  9.     PLSetHeapType PLSetMErrProc PLSetNonCont Release ScanEQ
  10.     ScanNE|
  11. Pascal Predefined Routines [2/2]
  12. Niceties -> StringOf ReadString WriteDraw OldFileName
  13.     NewFileName
  14. Ordinals -> Chr Odd Ord Pred Succ
  15. Reals -> Abs Arctan Cos Exp Ln Round Sin Sqr Sqrt Trunc
  16. Strings -> Concat Copy Delete Include Insert Length Omit Pos
  17. Windows -> GetDrawingRect GetTextRect HideAll SaveDrawing
  18.     SetDrawingRect SetTextRect ShowDrawing ShowText|
  19. PLHeapInit(sizeHeap:longint;heapDelta:longint;memerrProc:univ
  20. PascalPointer; allowNonCont:boolean;forDispose:boolean); MPW-196|
  21. PLSetHeapCheck(DoIt:boolean); MPW-197|
  22. PLSetNonCont(allowNonCont:boolean); MPW-197|
  23. PLSetMErrProc(memerrProc:univ PascalPointer); MPW-197|
  24. PLSetHeapType(forDispose:boolean); MPW-197|
  25. New(var p:univ Ptr; [t1,t2,…]); MPW-198 TP-353|
  26. Dispose(p:univ Ptr); MPW-199 TP-354|
  27. HeapCheck(deathonerr:boolean); TP-355|
  28. HeapResult:integer; MPW-199 TP-355|
  29. Mark(p); MPW-200|
  30. Release(p); MPW-200|
  31. MemAvail:longint; MPW-200|
  32. Trunc(x:Extended):longint; MPW-201 TP-355|
  33. Round(x:Extended):longint; MPW-201 TP-355|
  34. Ord4(x):longint; MPW-201 TP-356|
  35. Pointer(x):univ Ptr; MPW-202 TP-356|
  36. Odd(x):boolean; MPW-203 TP-356|
  37. Abs(x:type):type; MPW-203 TP-357|
  38. Sqr(x:type):type; MPW-203 TP-357|
  39. Sin(x):Extended; MPW-204 TP-358|
  40. Cos(x):Extended; MPW-204 TP-358|
  41. Exp(x):Extended; MPW-204 TP-358|
  42. Ln(x):Extended; MPW-204 TP-358|
  43. Sqrt(x):Extended; MPW-205 TP-357|
  44. Arctan(x):Extended; MPW-205 TP-359|
  45. Ord(x):longint; MPW-205 TP-359|
  46. Chr(x):char; MPW-206 TP-359|
  47. Succ(x:type):type; MPW-206 TP-360|
  48. Pred(x:type):type; MPW-206 TP-360|
  49. Length(s:string):integer; MPW-207 TP-360|
  50. Pos(substr,str:string):integer; MPW-207 TP-361|
  51. Concat(s1,s2,…:string):string; MPW-207 TP-361|
  52. Copy(source:string;ndx,count:integer):string; MPW-208 TP-361|
  53. Delete(var s:string;ndx,count:integer); MPW-208 TP-362|
  54. Omit(s:string;ndx,count:integer):string; see Delete TP-362|
  55. Insert(source:string;var dest:string;ndx:integer); MPW-208 TP-363|
  56. Include(source,dest:string;ndx:integer):string; see Insert TP-363|
  57. HideAll; hides all Think's windows TP-363|
  58. ShowText; TP-363|
  59. ShowDrawing; TP-364|
  60. SetTextRect(r:Rect); TP-364|
  61. SetDrawingRect(r:Rect); TP-364|
  62. GetTextRect(var r:Rect); TP-364|
  63. GetDrawingRect(var r:Rect); TP-364|
  64. SaveDrawing(filename:string); to MacPaint file TP-364|
  65. MoveLeft(var source,dest:type;count:integer); MPW-209|
  66. MoveRight(var soucr,dest:type;count:integer); MPW-210|
  67. SizeOf(type or variable):longint; MPW-210 TP-369|
  68. ScanEQ(limit:integer;ch:char;var paoc:packed array of char):
  69. integer; MPW-211|
  70. ScanNE(limit:integer;ch:char;var paoc:packed array of char):
  71. integer; MPW-211|
  72. FillChar(var paoc:packed array of char;count:integer;ch:char);
  73. MPW-211|
  74. BitAnd(l,r:int/long):int/long; TP-365|
  75. BitOr(l,r:int/long):int/long; TP-365|
  76. BitXor(l,r:int/long):int/long; TP-365|
  77. BitNot(l:int/long):int/long; TP-365|
  78. BAND(l,r:longint):longint; MPW-213 TP-366|
  79. BOR(l,r:longint):longint; MPW-213 TP-366|
  80. BXOR(l,r:longint):longint; MPW-213 TP-366|
  81. BNOT(l:longint):longint; MPW-213 TP-366|
  82. BSL(l,count:integer):longint; MPW-213 TP-366|
  83. BSR(l,count:integer):longint; Logical Shift! MPW-214 TP-367|
  84. BROTL(l,count:integer):longint; MPW-214 TP-367|
  85. RROTR(l,count:integer):longint; MPW-214 TP-367|
  86. BTST(l,num:integer):boolean; MPW-214 TP-367|
  87. HiWrd(l:longint):integer; MPW-214 TP-368|
  88. LoWrd(l:longint):integer; MPW-215 TP-368|
  89. BCLR(var l:longint;num:integer); MPW-215 TP-367|
  90. BSET(var l:longint;num:integer); MPW-215 TP-368|
  91. WriteDraw(params); ala Write TP-370|
  92. StringOf(params):string; ala Write TP-370|
  93. ReadString(s:string;params); ala Read TP-371|
  94. OldFileName(prompt:string):string; prompt not displayed TP-371|
  95. NewFileName(promt:string):string; TP-372|
  96. Compiler Directives [1/4]
  97. $SETC id := comp-expr MPW-244 TP-214
  98. $IFC comp-expr MPW-244 TP-214
  99. $IFC UNDEFINED ident MPW-244 TP-214
  100. $IFC OPTION(option-name) MPW-244 TP-214
  101. $ELSEC MPW-245 TP-214
  102. $ENDC MPW-245 TP-214
  103. $A1 Allow global data to be noncontiguous MPW-246
  104. $A5 Let compiler resolve references to the unit's global data MPW-246|
  105. Compiler Directives [2/4]
  106. $B± Generate PC(+) or A5(-) relative code MPW-241
  107. $C± Generate code(+) MPW-241
  108. $D± MacsBug symbols(+) MPW-243
  109. $D± Debug on(+) or off(-) TP-207
  110. $E filename Errors to filename MPW-246
  111. $H± Check handle dereferencing(+) MPW-244
  112. $I filename Include filename MPW-240
  113. $I± Auto-initialise(+) TP-211
  114. $J± Global data in source file(-) Global data external(+) MPW-242 TP-212|
  115. Compiler Directives [3/4]
  116. $K pathname Use pathname for symbol table resources MPW-246
  117. $MC68020± Don't generate 020 instructions(-) MPW-242
  118. $MC68881± Don't generate 881 instructions(-) MPW-242
  119. $N± Send names to linker as anonymous(-) MPW-245
  120. $N± MacsBug symbols(+) TP-207
  121. $N++ Tracing on TP-208
  122. $OV± Ignore overflows(-) MPW-242
  123. $P Page break (for PasMat) MPW-247 (for printing) TP-214
  124. $PUSH Save current options MPW-247 TP-213|
  125. Compiler Directives [4/4]
  126. $POP Restore saved options MPW-247 TP-213
  127. $R± Perform range checking(+) MPW-242 TP-210
  128. $SC± Evaluate booleans normally(-) or short circuited(+) MPW-243
  129. $S segname Place subsequent routines in segname MPW-243 TP-213
  130. $U filename Find next unit in filename MPW-240
  131. $V± Check overflows(+) TP-209
  132. $W± Engage peephole optimiser(+) MPW-243
  133. $Z± Send names to linker as anonymous(-) MPW-245 TP-213
  134. $Z* Send names not at top level to linker as anonymous MPW-245|
  135. Initialisation TP-211
  136.     InitGraf(@thePort);
  137.     InitFonts;
  138.     InitWindows;
  139.     InitMenus;
  140.     TEInit;
  141.     InitDialogs(nil);
  142.     SetApplLimit(sp-stack_size);
  143.     MaxApplZone;
  144.     for i := 1 to 10 do MoreMasters;|
  145. =|
  146.